home *** CD-ROM | disk | FTP | other *** search
/ Aminet 3 / Aminet 3 - July 1994.iso / Aminet / dev / lang / struct100.lha / Struct1.0 / SpeedTests / Test4.ace < prev    next >
Encoding:
Text File  |  1993-08-22  |  48 b   |  7 lines
  1. a&=0
  2. z&=0
  3. repeat
  4. a&=a&+7
  5. ++z&
  6. until z&=20000000
  7.